home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 21 / CU Amiga Magazine's Super CD-ROM 21 (1998)(EMAP Images)(GB)[!][issue 1998-04].iso / CUCD / Programming / EasyPLUGINs / examples / popasl_demo.e < prev    next >
Encoding:
Text File  |  1997-12-15  |  3.3 KB  |  111 lines
  1.  
  2. MODULE 'easyplugins/popasl',
  3.        'tools/exceptions','tools/easygui',
  4.        'utility/tagitem'
  5.  
  6.  
  7. PROC main() HANDLE
  8. DEF mp:PTR TO popasl_plugin,mp2:PTR TO popasl_plugin,mp3:PTR TO popasl_plugin
  9.  
  10. NEW mp.popasl([PLA_PopAsl_Contents, 'PROGDIR:',
  11.                PLA_PopAsl_GadgetID, 10,
  12.                PLA_PopAsl_Type, PLV_PopAsl_Type_Drawer,
  13.                PLA_PopAsl_ButtonOnRight, TRUE,
  14.                TAG_DONE])
  15.  
  16. NEW mp2.popasl([PLA_PopAsl_Contents, 'SYS:Daten/',
  17.                PLA_PopAsl_GadgetID, 12,
  18.                PLA_PopAsl_Type, PLV_PopAsl_Type_File,
  19.                TAG_DONE])
  20.  
  21. NEW mp3.popasl([PLA_PopAsl_Contents, 'topaz.font/8',
  22.                PLA_PopAsl_GadgetID, 14,
  23.                PLA_PopAsl_Type, PLV_PopAsl_Type_Font,
  24.                PLA_PopAsl_NoFontExtension, TRUE,
  25.                TAG_DONE])
  26.  
  27. easyguiA('PopAsl Test',
  28.          [ROWS,
  29.             [COLS,
  30.                [PLUGIN, {getstring2}, mp, TRUE],
  31.                [BUTTON, {toggle}, 'T', mp],
  32.                [BUTTON, {clear}, 'C', mp],
  33.                [BUTTON, {getstring}, 'G', mp]
  34.             ],
  35.             [COLS,
  36.                [PLUGIN, {getstring2}, mp2, TRUE],
  37.                [BUTTON, {toggle}, 'T', mp2],
  38.                [BUTTON, {clear}, 'C', mp2],
  39.                [BUTTON, {getstring}, 'G', mp2]
  40.             ],
  41.             [COLS,
  42.                [PLUGIN, {getstring2}, mp3, TRUE],
  43.                [BUTTON, {toggle}, 'T', mp3],
  44.                [BUTTON, {clear}, 'C', mp3],
  45.                [BUTTON, {getstring}, 'G', mp3]
  46.             ],
  47.             [EQCOLS,
  48.                [SBUTTON, {toggleall}, 'Toggle All', [mp,mp2,mp3]],
  49.                [SBUTTON, {resetall}, 'Reset All', [mp,mp2,mp3]],
  50.                [SBUTTON, {getstrings}, 'Get Strings', [mp,mp2,mp3]]
  51.             ]
  52.          ]
  53.         )
  54.  
  55. EXCEPT
  56.    END mp
  57.    report_exception()
  58. ENDPROC
  59.  
  60. PROC toggle(mp:PTR TO popasl_plugin, info)
  61.    mp.set(PLA_PopAsl_Disabled,Not(mp.get(PLA_PopAsl_Disabled)))
  62. ENDPROC
  63.  
  64. PROC toggleall(l:PTR TO LONG,info)
  65. DEF mp:PTR TO popasl_plugin, mp2:PTR TO popasl_plugin, mp3:PTR TO popasl_plugin
  66.  
  67.    mp:=l[0]; mp2:=l[1]; mp3:=l[2]
  68.  
  69.    mp.set (PLA_PopAsl_Disabled,Not(mp.get(PLA_PopAsl_Disabled)))
  70.    mp2.set(PLA_PopAsl_Disabled,Not(mp2.get(PLA_PopAsl_Disabled)))
  71.    mp3.set(PLA_PopAsl_Disabled,Not(mp3.get(PLA_PopAsl_Disabled)))
  72.  
  73. ENDPROC
  74.  
  75. PROC clear(mp:PTR TO popasl_plugin, info)
  76.    mp.set(PLA_PopAsl_Contents, '')
  77. ENDPROC
  78.  
  79. PROC resetall(l:PTR TO LONG,info)
  80. DEF mp:PTR TO popasl_plugin, mp2:PTR TO popasl_plugin, mp3:PTR TO popasl_plugin
  81.  
  82.    mp:=l[0]; mp2:=l[1]; mp3:=l[2]
  83.  
  84.    mp.set (PLA_PopAsl_Contents, 'PROGDIR:')
  85.    mp2.set(PLA_PopAsl_Contents, 'SYS:Daten/')
  86.    mp3.set(PLA_PopAsl_Contents, 'topaz.font/8')
  87.  
  88. ENDPROC
  89.  
  90. PROC getstring(mp:PTR TO popasl_plugin, info)
  91.    PrintF('Contents=''\s''\n', mp.get(PLA_PopAsl_Contents))
  92. ENDPROC
  93.  
  94. PROC getstrings(l:PTR TO LONG,info)
  95. DEF mp:PTR TO popasl_plugin, mp2:PTR TO popasl_plugin, mp3:PTR TO popasl_plugin
  96.  
  97.    mp:=l[0]; mp2:=l[1]; mp3:=l[2]
  98.  
  99.    PrintF('\n+-----------------------------------------------\n')
  100.    PrintF('| Drawer=''\s''\n', mp.get(PLA_PopAsl_Contents))
  101.    PrintF('| File  =''\s''\n', mp2.get(PLA_PopAsl_Contents))
  102.    PrintF('| Font  =''\s''\n', mp3.get(PLA_PopAsl_Contents))
  103.    PrintF('+-----------------------------------------------\n')
  104.  
  105. ENDPROC
  106.  
  107. PROC getstring2(info, mp:PTR TO popasl_plugin)
  108.    PrintF('Contents=''\s''\n', mp.get(PLA_PopAsl_Contents))
  109. ENDPROC
  110.  
  111.